home *** CD-ROM | disk | FTP | other *** search
/ Personal Computer World 2005 October / PCWOCT05.iso / Software / FromTheMag / The GIMP 2.2.8 / gimp-2.2.8-i586-setup.exe / {app} / share / gimp / 2.0 / scripts / distress-selection.scm < prev    next >
Encoding:
GIMP Script-Fu Script  |  2005-06-30  |  3.1 KB  |  103 lines
  1. ;
  2. ; distress selection
  3. ;
  4. ;
  5. ; Chris Gutteridge (cjg@ecs.soton.ac.uk)
  6. ; At ECS Dept, University of Southampton, England.
  7.  
  8. ; This program is free software; you can redistribute it and/or modify
  9. ; it under the terms of the GNU General Public License as published by
  10. ; the Free Software Foundation; either version 2 of the License, or
  11. ; (at your option) any later version.
  12. ; 
  13. ; This program is distributed in the hope that it will be useful,
  14. ; but WITHOUT ANY WARRANTY; without even the implied warranty of
  15. ; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  16. ; GNU General Public License for more details.
  17. ; 
  18. ; You should have received a copy of the GNU General Public License
  19. ; along with this program; if not, write to the Free Software
  20. ; Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
  21.  
  22. ; Define the function:
  23.  
  24. (define (script-fu-distress-selection inImage
  25.                       inLayer
  26.                       inThreshold
  27.                       inSpread
  28.                       inGranu
  29.                       inSmooth
  30.                       inSmoothH
  31.                       inSmoothV)
  32.  
  33.   (set! theImage inImage)
  34.   (set! theWidth (car (gimp-image-width inImage)))
  35.   (set! theHeight (car (gimp-image-height inImage)))
  36.  
  37.   (gimp-image-undo-group-start theImage)
  38.  
  39.   (set! theLayer (car (gimp-layer-new theImage
  40.                       theWidth
  41.                       theHeight
  42.                       RGBA-IMAGE
  43.                       "Distress Scratch Layer"
  44.                       100
  45.                       NORMAL-MODE)))
  46.  
  47.   (gimp-image-add-layer theImage theLayer 0)
  48.  
  49.   (if (= TRUE (car (gimp-selection-is-empty theImage)))
  50.       ()
  51.       (gimp-edit-fill theLayer BACKGROUND-FILL))
  52.  
  53.   (gimp-selection-invert theImage)
  54.  
  55.   (if (= TRUE (car (gimp-selection-is-empty theImage)))
  56.       ()
  57.       (gimp-edit-clear theLayer))
  58.  
  59.   (gimp-selection-invert theImage)
  60.   (gimp-selection-none inImage)
  61.  
  62.   (gimp-layer-scale theLayer
  63.             (/ theWidth inGranu)
  64.             (/ theHeight inGranu)
  65.             TRUE)
  66.  
  67.   (plug-in-spread TRUE
  68.           theImage
  69.           theLayer
  70.           inSpread
  71.           inSpread)
  72.  
  73.   (plug-in-gauss-iir TRUE theImage theLayer inSmooth inSmoothH inSmoothV)
  74.   (gimp-layer-scale theLayer theWidth theHeight TRUE)
  75.   (plug-in-threshold-alpha TRUE theImage theLayer inThreshold)
  76.   (plug-in-gauss-iir TRUE theImage theLayer 1 TRUE TRUE)
  77.   (gimp-selection-layer-alpha theLayer)
  78.   (gimp-image-remove-layer theImage theLayer)
  79.  
  80.   (gimp-image-undo-group-end theImage)
  81.  
  82.   (gimp-displays-flush))
  83.  
  84.  
  85. (script-fu-register "script-fu-distress-selection"
  86.             _"_Distress Selection..."
  87.             "No description"
  88.             "Chris Gutteridge"
  89.             "1998, Chris Gutteridge / ECS dept, University of Southampton, England."
  90.             "23rd April 1998"
  91.             "RGB*"
  92.             SF-IMAGE       "The image"              0
  93.             SF-DRAWABLE    "The layer"              0
  94.             SF-ADJUSTMENT _"Threshold (bigger 1<-->255 smaller)" '(127 1 255 1 10 0 0)
  95.             SF-ADJUSTMENT _"Spread"                 '(8 0 1000 1 10 0 1)
  96.             SF-ADJUSTMENT _"Granularity (1 is low)" '(4 1 25 1 10 0 1)
  97.             SF-ADJUSTMENT _"Smooth"                 '(2 0 150 1 10 0 1)
  98.             SF-TOGGLE     _"Smooth horizontally"    TRUE
  99.             SF-TOGGLE     _"Smooth vertically"      TRUE)
  100.  
  101. (script-fu-menu-register "script-fu-distress-selection"
  102.              _"<Image>/Script-Fu/Selection")
  103.